Imports System.Web

Public Class Rpt_Functions
    Private Const Q As String = Chr(34)

    Public Sub ShowFunctionDetail( _
                     ByVal lFunctionID As Long, _
                     ByVal lRevID As Long)

        Dim oProc As New SQLAutoDocLib.Function(lFunctionID, lRevID)
        oProc.Load()

        Dim oFactory As New SQLAutoDocLib.FunctionText_Factory
        Dim sText As String = oFactory.GetText(lFunctionID, lRevID)

        HttpContext.Current.Response.Write("<pre class=" & Q & "wmCode" & Q & ">")
        HttpContext.Current.Response.Write(sText)
        HttpContext.Current.Response.Write("</pre>")
    End Sub
End Class
